10 GOTO100
50 REM <YES>
51 S=54272:FORE=STOS+28:POKEE,0:NEXT
52 POKE54296,15:POKE54277,42:POKE54278,250
53 POKE54276,23:POKE54273,23:POKE54272,191
54 FORT=1TO150:NEXT:POKE54276,32:FORT=1TO200:NEXT
55 POKE54296,0:RETURN
60 REM <N0>
61 S=54272:FORE=STOS+28:POKEE,0:NEXT
62 POKE54296,15:POKE54277,18:POKE54278,242
63 POKE54276,33:POKE54273,4:POKE54272,48
64 FORT=1TO250:NEXT:POKE54276,32:FORT=1TO300:NEXT
65 POKE54296,0:RETURN
70 REM <BLIP>
71 S=54272:FORE=STOS+28:POKEE,0:NEXT
72 POKE54296,5:POKE54277,42:POKE54278,250
73 POKE54276,23:POKE54273,23:POKE54272,191
74 FORT=1TO30:NEXT:POKE54276,32:FORT=1TO50:NEXT
75 POKE54296,0:RETURN
80 FORT=1TO500:NEXT:RETURN
81 FORT=1TO1000:NEXT:RETURN
82 FORT=1TO2000:NEXT:RETURN
83 FORT=1TO3000:NEXT:RETURN
84 FORT=1TO4000:NEXT:RETURN
85 FORT=1TO5000:NEXT:RETURN
90 GOSUB81:GOSUB70
91 PRINT"[154]      [208]RESS [211][208][193][195][197][160][194][193][210][160]TO CONTINUE
92 [161]R$:[139]R$[179][177][199](32)[167]92
93 [142]
95 [153]"  PEEKETTER LUCK WITH THE NEXT QUESTION.OPEN":[142]
100 [151]53280,0:[151]53281,0:[151]646,3:[151]53272,23:C[178]0:P[178]0:W[178]0:D[178]0:G[178]0
101 [153]"LOAD      ATNCLOSE(null)(null)(null)CHR$CLOSEVALSTR$(null)LENATN(null)RIGHT$(null)(null)ATN(null)CLOSE(null)(null)(null)CHR$(null)ATN(null)
102 PRINT"           [198][207][210][160][195]64 [195][207][205][208][213][212][197][210][211]
105 [153]"                                        WAIT";
110 [153]"                                        WAIT";
115 [153]"     (null)RACTICE (null)ROBLEMS IN ATNRITHMETIC    WAIT";
120 [153]"                                        WAIT";
125 [153]"           CHR$RADE 4     (null)ART 1           WAIT";
130 [153]"                                        WAIT";
135 [153]"               (null)ESSON  12               WAIT";
140 [153]"                                        WAIT";
145 [153]"            (null)ROVING ATNNSWERS OPEN            WAIT";
150 [153]"                                        WAIT";
155 [153]"                                        WAIT"
160 [153]"                  WHC ONON"
165 [141]90
170 [153]"LOAD       ATNND AWAY WE GO......."
175 [141]81:[141]50:[141]80
200 [153]"PRINT#LOAD               (null)UESTION 1 WAITOPEN":Z[178]0
205 [153]"  (null)AS HENRY RIGHT WHEN HE SAID THAT AT
210 PRINT"  4 CENTS EACH, A DOZEN APPLES WOULD      COST HALF A DOLLAR?"
220 GOSUB81:GOSUB70
225 PRINT"             [145]"
230 INPUT A$
240 IFA$<>"[206]"AND A$<>"N"THEN270
250 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
260 P=P+1:GOTO300
270 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
275 IFZ=2THENG=G+1:GOTO295
280 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
290 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO225
295 PRINT"  [212]HE ANSWER IS NO[150].                ":GOSUB82
297 PRINT"  4 X 12 = 48   ":GOSUB82:GOSUB90Y.
300 PRINT"[152][147]               [209]UESTION 2 [146][159]":Z=0
305 PRINT"  [195]AN YOU BUY A TOP AT 10 CENTS AND A
310 [153]"  KITE AT 25 CENTS IF YOU HAVE ONLY 50    CENTS?"
320 [141]81:[141]70
325 [153]"             ON"
330 [133] A$
340 [139]A$[179][177]"(null)"[175]A$[179][177]"Y"[167]370
350 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
360 P[178]P[170]1:[137]400
370 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
375 [139]Z[178]2 [167] G[178]G[170]1:[137]395
380 [153]"ON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
390 [153]"OPENONON                                        ONONONONONONON":[137]325
395 [153]"  (null)HE ANSWER IS YESDEF.                ":[141]82
397 [153]"  10 + 25 = 35   ":[141]82:[141]90Y.
400 [153]"PRINT#LOAD               (null)UESTION 3 WAITOPEN":Z[178]0
405 [153]"  LENARL THINKS A DOZEN AND SEVEN ACORNS
410 PRINT"  SHOULD EQUAL 19 ACORNS.  [201]S HE RIGHT?"
420 GOSUB81:GOSUB70
425 PRINT"             [145]"
430 INPUT A$
440 IFA$<>"[217]"ANDA$<>"Y"THEN470
450 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
460 P=P+1:GOTO500
470 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
475 IFZ=2THENG=G+1:GOTO495
480 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
490 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO425
495 PRINT"  [212]HE ANSWER IS YES[150].                ":GOSUB82
497 PRINT"  12 + 7 = 19   ":GOSUB82:GOSUB90Y.
500 PRINT"[152][147]               [209]UESTION 4 [146][159]":Z=0
505 PRINT"  [197]MMA PAID 30 CENTS FOR FIVE APPLES.
510 [153]"  (null)HE SAID THEY COST 6 CENTS APIECE.      STR$ID THEY?"
520 [141]81:[141]70
525 [153]"             ON"
530 [133] A$
540 [139]A$[179][177]"(null)"[175]A$[179][177]"Y"[167]570
550 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
560 P[178]P[170]1:[137]600
570 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
575 [139]Z[178]2[167]G[178]G[170]1:[137]595
580 [153]"ON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
590 [153]"OPENONON                                        ONONONONONONON":[137]525
595 [153]"  (null)HE ANSWER IS YESDEF.                ":[141]82
597 [153]"  5 X 6 = 30   ":[141]82:[141]90Y.
600 [153]"PRINT#LOAD               (null)UESTION 5 WAITOPEN":Z[178]0
605 [153]"  (null)OUISE BOUGHT AN APPLE FOR 6 CENTS,
610 PRINT"  TWO PEARS AT 5 CENTS APIECE, AND A      CHOCOLATE BAR AT 30 CENTS.
615 [153]"  (null)HE CLERK CHARGED HER 56 CENTS.  (null)AS    THAT RIGHT?"
620 [141]81:[141]70
625 [153]"             ON"
630 [133] A$
640 [139]A$[179][177]"N"[175]A$[179][177]"(null)"[167]670
650 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
660 P[178]P[170]1:[137]700
670 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
675 [139]Z[178]2[167]G[178]G[170]1:[137]695
680 [153]"ON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
690 [153]"OPENONON                                        ONONONONONONON":[137]625
695 [153]"  (null)HE ANSWER IS NODEF.                ":[141]82
697 [153]"  6 + 10 + 30 = 46   ":[141]82:[141]90Y.
700 [153]"PRINT#LOAD               (null)UESTION 6 WAITOPEN":Z[178]0
705 [153]"  LEFT$ARRY ASKED (null)ALTHER IF ONE THIRD
710 PRINT"  OF A DOZEN EQUALS TO 4?  [215]HAT           SHOULD [215]ALTHER SAY?"
720 GOSUB81:GOSUB70
725 PRINT"             [145]"
730 INPUT A$
740 IFA$<>"[217]"ANDA$<>"Y"ANDA$<>"YES"THEN770
750 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
760 P=P+1:GOTO800
770 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
775 IFZ=2THEN G=G+1:GOTO795
780 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
790 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO725
795 PRINT"  [212]HE ANSWER IS YES[150].                ":GOSUB82
797 PRINT"  12 / 3 = 4   ":GOSUB82:GOSUB90Y.
800 PRINT"[152][147]               [209]UESTION 7 [146][159]":Z=0
805 PRINT"  [208]AUL WEIGHS 60 KILOGRAMS AND HIS
810 [153]"  SISTER WEIGHS 44 KILOGRAMS.  (null)AUL
815 PRINT"  SAYS HE WEIGHS 15 KG MORE THAN HIS
817 [153]"  SISTER.  RIGHT$S THAT RIGHT?"
820 [141]81:[141]70
825 [153]"             ON"
830 [133] A$
840 [139]A$[179][177]"N"[175]A$[179][177]"(null)"[167] 870
850 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
860 P[178]P[170]1:[137]900
870 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
875 [139]Z[178]2[167] G[178]G[170]1:[137]895
880 [153]"ON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
890 [153]"OPENONON                                        ONONONONONONON":[137]825
895 [153]"  (null)HE ANSWER IS NODEF.                ":[141]82
897 [153]"  60 - 44 = 16   ":[141]82:[141]90Y.
900 [153]"PRINT#LOAD               (null)UESTION 8 WAITOPEN":Z[178]0
905 [153]"  MID$ESSICA SAID THAT IF SHE HAD A
910 PRINT"  QUARTER SHE COULD BUY A DOZEN
915 [153]"  APPLES AT 2 CENTS EACH.  RIGHT$S THAT        RIGHT?"
920 [141]81:[141]70
925 [153]"             ON"
930 [133] A$
940 [139]A$[179][177]"(null)"[175]A$[179][177]"Y"[167]970
950 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
960 P[178]P[170]1:[137]1000
970 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
975 [139]Z[178]2[167] G[178]G[170]1:[137]995
980 [153]"ON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
990 [153]"OPENONON                                        ONONONONONONON":[137]925
995 [153]"  (null)HE ANSWER IS YESDEF.                ":[141]82
997 [153]"  2 X 12 = 24   ":[141]82:[141]90Y.
1000 [153]"PRINT#LOAD               (null)UESTION 9 WAITOPEN":Z[178]0
1005 [153]"  (null)UTS COST 78 CENTS FOR 400 GRAMS.
1010 PRINT"  [202]ENNY SAYS 200 GRAMS OF NUTS WOULD
1015 [153]"  COST 39 CENTS.  RIGHT$S THAT RIGHT?"
1020 [141]81:[141]70
1025 [153]"             ON"
1030 [133] A$
1040 [139]A$[179][177]"(null)"[175]A$[179][177]"Y"[167]1070
1050 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
1060 P[178]P[170]1:[137]1100
1070 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
1075 [139]Z[178]2[167] G[178]G[170]1:[137]1095
1080 [153]"ON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
1090 [153]"OPENONON                                        ONONONONONONON":[137]1025
1095 [153]"  (null)HE ANSWER IS YESDEF.                ":[141]82
1097 [153]"  78 / 2 = 39   ":[141]82:[141]90Y.
1100 [153]"PRINT#LOAD               (null)UESTION 10 WAITOPEN":Z[178]0
1105 [153]"  MID$EAN SAID 9 CHILDREN WOULD HAVE TO
1110 PRINT"  BRING 5 CENTS EACH TO BUY A PLANT
1115 [153]"  FOR 40 CENTS.  (null)AS SHE RIGHT?"
1120 [141]81:[141]70
1125 [153]"             ON"
1130 [133] A$
1140 [139]A$[179][177]"(null)"[175]A$[179][177]"N"[167]1170
1150 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
1160 [137]1200
1170 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
1175 [139]Z[178]2[167] G[178]G[170]1:[137]1195
1180 [153]"ON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
1190 [153]"OPENONON                                        ONONONONONONON":[137]1125
1195 [153]"  (null)HE ANSWER IS NODEF.                ":[141]82
1197 [153]"  9 X 5 = 45   ":[141]82:[141]90Y.
1200 [153]"LOAD           (null)EPORT LENARD WAIT"
1205 D[178]W[171]G:C[178]10[171]W
1210 [153]"PRINT  1. (null)UESTIONS ANSWERED CORRECTLY            ON FIRST TRY:
1215 PRINT"                 ";C
1220 PRINT"[129]  2. [209]UESTIONS ANSWERED CORRECTLY            ON SECOND TRY:
1225 [153]"                 ";D
1230 [153]"DEF  3. (null)UESTIONS MISSED ON SECOND TRY:
1235 PRINT"                 ";G;""
1245 GOSUB90
1250 PRINT"[158][147]  [217]OU HAVE A CHOICE:
1255 [153]"  (null)RESS  (null) WAIT TO REPEAT THIS LESSON
1260 PRINT"  [208]RESS  [205] [146] TO RETURN TO THE MENU[159]"
1265 GETR$:IFR$<>"R"ANDR$<>"M"THEN1265
1270 IFR$="R"THENRESTORE:GOTO100
1280 PRINT"[147] [210]ETURNING TO THE MENU
1285 [147]"MENU",8
1290 [138]
1295 [128]
1300 [143] BILL CUMBERLAND 90:10:28